home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aar.d64 / budget (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  308 lines
  1. 1 REM: BUDGET PROGRAM FOR C-64 AND MX-80       PRINTER.
  2. 2 REM: CHANGE LINES 65 AND 69 TO USE           YOUR NAME IN TITLES.
  3. 3 REM: FOR DEPOSITS USE A '+' INSTEAD OF       A CHEQUE NUMBER.
  4. 4 REM: USE '1EW' FOR BANK CASH MACHINE         TRANSACTIONS.
  5. 5 REM: USE '1AD' FOR AUTOMATIC BANK            DEBITS (IE AUTOMATIC MORTGAGE
  6. 6 REM: PAYMENTS.)
  7. 7 REM: CHANGE YEAR IN LINES 232 AND 5150
  8. 8 REM: PRG USES THE DYNAMIC KEYBOARD           ROUTINE AND GROWS LONGER EACH
  9. 9 REM: YOU RUN IT. SO USE NEW DISK.            ---------------------------------
  10. 10 GOSUB9700:PRINTCHR$(147):PR=0
  11. 15 POKE53280,15:POKE53281,15:PRINT"[151]"
  12. 50 IFFRE(0)>1000THEN64
  13. 60 PRINT"[147]             W A R N I N G [146]":
  14. 61 PRINT"   ROOM FOR ABOUT";INT(FRE(0))/50;" MORE ENTRIES[151]"
  15. 64 PRINT"[144]                                 "
  16. 65 PRINT"              YOUR BUDGET        [146]":PRINT"                 ";
  17. 66 PRINT"                [146][151]"
  18. 67 GETI$:IFI$=""THEN67
  19. 68 GOSUB69:GOTO70
  20. 69 PRINT"[144][147]              YOUR BUDGET              [146][151]":RETURN
  21. 70 PRINT"  PROGRAM LAST RUN ON:";
  22. 71 Y1$=RIGHT$(Y$,2):  PRINT"    "P(28)"/"P(29)"/ "Y1$
  23. 80 PRINT"  ENTER TODAYS'S DATE":INPUT"  MONTH (MM/DD)   ../..[157][157][157][157][157][157][157]";X$:
  24. 85 IFRIGHT$(X$,1)="."ORLEN(X$)<>5THEN87
  25. 86 GOTO90
  26. 87 PRINT"[145]  RE-ENTER DATE - FORMAT (MM/DD)":FORI=1TO2500:NEXT
  27. 88 PRINT"[145][146][151]                                    [145][145][145][145][145][145][145]":GOTO80
  28. 90 X=VAL(LEFT$(X$,2)):B=VAL(RIGHT$(X$,2)):P(28)=X:P(29)=B:
  29. 200 DATA  0, 0, 0, 0, 0
  30. 201 DATA  0, 0, 0, 0, 0
  31. 202 DATA  0, 0, 0, 0, 0
  32. 203 DATA  0, 0, 0, 0, 0
  33. 204 DATA  0, 0, 0, 0, 0
  34. 205 DATA  0, 0, 0, 0, 0, 0
  35. 232 DATA/86:REM CHANGE YEAR & LINE 5150
  36. 999 PRINTCHR$(147):F$=STR$(FRE(0)):IFLEN(F$)<5THENL=5-LEN(F$):FORR=1TOL:F$=" "+F$:NEXTR
  37. 1000 PRINT"[144][147]    * * "F$" BYTES AVAILABLE * *[151]":LL=0
  38. 1010 PRINT" 1. ENTER CHECKS & CHARGES":
  39. 1020 PRINT" 2. PRINT CHECK REGISTER":
  40. 1030 PRINT" 3. PRINT CHARGE REGISTER":
  41. 1040 PRINT" 4. UPDATE BALANCE IN BUDGET CATEGORIES"
  42. 1050 PRINT" 5. CALCULATE SALES TAX":
  43. 1060 PRINT" 6. PRINT BALANCES IN ALL CATEGORIES":
  44. 1070 PRINT" 7. PERFORM SEARCH FOR CHARGE OR CHECK":
  45. 1080 PRINT" 8. EXAMINE AN INDIVIDUAL CATEGORY":
  46. 1090 PRINT" 9. STORE DATA AND END SESSION":
  47. 1140 PRINT:INPUT" ENTER NUMBER";WHICH
  48. 1155 ONWHICHGOSUB3000,4000,4000,2500,7000,2000,6000,4000,5000
  49. 1998 GOTO999
  50. 2000 REM PRINTS BALANCES IN ALL CATEGORIES
  51. 2020 PRINT"[144][147]        BALANCES IN ALL CATEGORIES      [151]":PRINT:
  52. 2030 RESTORE:FORI=1TO32:READZ9$:NEXT
  53. 2040 QQ=0:FORI=1TO26:READZ$:IFZ$="END"THEN2090
  54. 2041 N=P(ASC(Z$)-64):A$=STR$(N):Q=LEN(A$):FORL=QTO1STEP-1
  55. 2042 IFMID$(A$,L,1)<>"."THENNEXT:A$=A$+".00":GOTO2050
  56. 2043 IFL=Q-1THENA$=A$+"0"
  57. 2050 IFLEN(A$)<10THENL=10-LEN(A$):FORR=1TOL:A$=" "+A$:NEXTR
  58. 2053 PB$=STR$(P(27)):IFLEN(PB$)<10THENL=10-LEN(PB$):FORR=1TOL:PB$=" "+PB$:NEXTR
  59. 2055 IFPR=3THENOPEN4,4,0:GOSUB14005:GOSUB12000:GOTO2080
  60. 2070 PRINTLEFT$(Z$,10)TAB(25)" $"A$:QQ=QQ+1:IFQQ<>7THEN2080
  61. 2080 NEXTI
  62. 2090 P$=STR$(P(30)):Q=LEN(P$):FORL=QTO1STEP-1:IFMID$(P$,L,1)<>"."THENNEXT:P$=P$+".00"
  63. 2091 GOTO2093
  64. 2092 IFL=Q-1THENP$=P$+"0"
  65. 2093 IFLEN(P$)<10THENL=10-LEN(P$):FORR=1TOL:P$=" "+P$:NEXTR
  66. 2094 IFPR=3THENGOSUB13000:CLOSE4:RETURN
  67. 2100 PRINT" UNALLOCATED DEPOSITS"TAB(26)"$"P$
  68. 2120 PRINT" ACCT. BAL."TAB(26)"$"PB$
  69. 2450 GOSUB15000
  70. 2455 GETZ$:IFZ$=""THEN2455
  71. 2456 IFPEEK(197)=4THENPR=3:LI=0:GOSUB14000:GOTO2030:
  72. 2460 CLOSE4:RETURN
  73. 2500 REM SUBROUTINE TO UPDATE BALALNCES IN BUDGET CATEGORIES
  74. 2510 GOSUB69:PRINT" YOU CAN ADD OR SUBTRACT FROM ANY BUDGET CATEGORY."
  75. 2511 PRINT"        HIT <[144]RETURN[146][151]>  WHEN DONE.":PRINT
  76. 2515 PRINT"YOU HAVE $";P(30)" UNALLOCTAED DOLLARS"
  77. 2520 PRINT" WHICH BUDGET CATEGORY":INPUT"   *[157][157][157]";T$:PRINT"[145]                         "
  78. 2521 W$=T$:GOSUB3200:W$=""
  79. 2525 IFT$="*"THENRETURN
  80. 2530 INPUT" ENTER AMOUNT  ";X
  81. 2535 I=ASC(T$)-64:IFI<1ORI>26THENRETURN
  82. 2540 P(I)=P(I)+X:P(30)=P(30)-X:GOTO2510
  83. 3000 REM SUBROUTINE TO PUT IN DATA
  84. 3010 LINE=P(0)+10000+1:PRINTCHR$(147):GOSUB69
  85. 3022 PRINT" BALANCE = $";P(27):
  86. 3025 IFT$="N"THENPRINT"         ** RE-ENTER DATA ** [146]":
  87. 3030 PRINT"ENTER CHECK NO. OR CREDIT CARD NAME OR  <RETURN>[146] WHEN THROUGH.
  88. 3031 [133]"   *CMDCMDCMD";N$:[139]N$[178]"*"[167]999
  89. 3032 [139]N$[178]"1EW"[167][153]"ON ELECTRONIC WITHDRAWL"
  90. 3033 [139]N$[178]"1AD"[167][153]"ON AUTOMATIC BANK DEBIT"
  91. 3034 [139]N$[178]"+"[167][153]"ON DEPOSIT"
  92. 3035 [139]N$[179][177]"+"[175]N$[179][177]"1EW"[175]N$[179][177]"1AD"[167][153]"ON CHEQUE NO.       "N$" "
  93. 3040 N[178][198](N$):[133]" DATE (MM/DD)  ";D$:
  94. 3041 [139][195](D$)[179][177]5[167][153]"ON RE-ENTER DATE - FORMAT (MM/DD)WAITPOKE":[137]3043
  95. 3042 [137]3044
  96. 3043 [129]I[178]1[164]2000:[130]:[153]"ON                                    ONON":[137]3040
  97. 3044 [139]N$[178]"+"[167][153]" PAYEE         ? DEPOSIT":D$[178]D$[170]Y$:I$[178]"DEPOSIT":[137]3061
  98. 3050 D$[178]D$[170]Y$:[133]" PAYEE         ";I$:
  99. 3061 [133]" AMOUNT        ";A$
  100. 3062 [139]N[179][177]43[167][133]" SALES TAX       NCMDCMDCMD";Q$:[137]3070
  101. 3064 [139]N[178]43[167][133]" ALLOCATE DEPOSIT (Y/N)  NWAITCMDCMDCMD";T$:
  102. 3066 [139]N[178]43[175]T$[178]"N"[167]I[178]30:[137]3074
  103. 3067 [153]"ON                                       ON"
  104. 3070 [133]" CATEGORY      ";W$:I[178][198](W$)[171]64:
  105. 3071 [139]I[179]1[176]I[177]26[167][153]"ON ILLEGAL CATEGORY";:[129]T[178]1[164]1500:[130]:[153]"CMDCMD  ON"
  106. 3072 [139]I[179]1[176]I[177]26[167][153]"ON":[137]3070
  107. 3073 [141]3200
  108. 3074 [133]"STOP IS DATA OK (Y/N)   YWAITCMDCMDCMDPOKE";T$
  109. 3075 [139]T$[178]"N"[167]3010
  110. 3076 [139]I[178]30[167]W$[178]" "
  111. 3080 P(0)[178]P(0)[170]1:X[178][197](A$):
  112. 3087 [139]N[178]43[167]X[178][171]X:Q$[178]"N"
  113. 3100 P(I)[178]P(I)[171]X
  114. 3110 [139]N[179]65[167]P(27)[178]P(27)[171]X
  115. 3120 [139]N[177]64[167]P(N[171]64)[178]P(N[171]64)[170]X
  116. 3121 [137]3400
  117. 3200 [139]W$[178]"A"[167][153][163]17)"ONAUTO     "
  118. 3201 [139]W$[178]"B"[167][153][163]17)"ONBUSINESS "
  119. 3202 [139]W$[178]"C"[167][153][163]17)"ONCASH     "
  120. 3203 [139]W$[178]"G"[167][153][163]17)"ONGENERAL  "
  121. 3204 [139]W$[178]"H"[167][153][163]17)"ONHOUSEHOLD"
  122. 3205 [139]W$[178]"I"[167][153][163]17)"ONINSURANCE"
  123. 3206 [139]W$[178]"L"[167][153][163]17)"ONLEISURE  "
  124. 3207 [139]W$[178]"M"[167][153][163]17)"ONMEDICAL  "
  125. 3208 [139]W$[178]"U"[167][153][163]17)"ONUTILITIES"
  126. 3209 [142]
  127. 3300 [139]TT$[178]"A"[167]TT$[178]"AUTO"
  128. 3301 [139]TT$[178]"B"[167]TT$[178]"BUSINESS"
  129. 3302 [139]TT$[178]"C"[167]TT$[178]"CASH"
  130. 3303 [139]TT$[178]"G"[167]TT$[178]"GENERAL"
  131. 3304 [139]TT$[178]"H"[167]TT$[178]"HOUSEHOLD"
  132. 3305 [139]TT$[178]"I"[167]TT$[178]"INSURANCE"
  133. 3306 [139]TT$[178]"L"[167]TT$[178]"LEISURE"
  134. 3307 [139]TT$[178]"M"[167]TT$[178]"MEDICAL"
  135. 3308 [139]TT$[178]"U"[167]TT$[178]"UTILITIES"
  136. 3309 [142]
  137. 3400 [141]3500
  138. 3450 [137]3010
  139. 3500 [143] SUBROUTINE TO PUT DATA STATEMENTS IN PROGRAM
  140. 3510 OTHER$[178][196](LINE)[170] " DATA "[170]N$[170]C$[170]D$[170]C$[170]I$[170]C$[170]A$[170]C$[170]W$[170]C$[170]Q$
  141. 3515 O2$[178][196](LINE[170]1)[170]"DATA XXXX,X,X,X,X,X":
  142. 3520 RL[178]3530:[137]9600
  143. 3530 [141]9700:[137]3000
  144. 4000 [143] SUBROUTINE TO PRINT CHECK REGISTER, CHARGE REGISTER, OR A CATEGORY
  145. 4010 PR[178]0:[140]:B[178]0:[141]69
  146. 4011 [135]Z9$:[139]Z9$[179][177]"END"[167]4011
  147. 4012 [139]PR[178]2[167]4040
  148. 4020 [139]WHICH[178]8[167][133]" WHICH CATEGORY:  ";TT$:W$[178]TT$:[141]3200:[141]3300:W$[178]""
  149. 4021 T$[178][200](TT$,1)
  150. 4025 [139]WHICH[178]3[167][133]" WHICH CHARGE CARD";T$:
  151. 4027 [133]" STARTING MONTH (MM)";M1:[133]" ENDING MONTH (MM)  ";M2
  152. 4029 I[178]0:[153][199](147):[141]69
  153. 4040 [135]N$,D$,I$,A$,W$,Q$:
  154. 4041 [139]N$[178]"XXXX"[167]4064
  155. 4042 [139][197]([200](D$,2))[179]M1[167]4040
  156. 4043 [139][197]([200](D$,2))[177]M2[167]4040
  157. 4044 [139]WHICH[178]8[175]T$[179][177]W$[167]4040
  158. 4046 [139]WHICH[178]2[175][198](N$)[177]64[167]4040
  159. 4048 [139]WHICH[178]3[175][200](N$,1)[179][177][200](T$,1)[167]4040
  160. 4049 [139]PR[178]2[167]I[178]I[171]1:[159]4,4,0:[141]14005:[141]12000:[137]4060
  161. 4050 [153]" NUMBER: "N$:[153]" DATE:   "D$:[153]" PAYEE:  "I$:[153]" AMOUNT: "A$""
  162. 4054 [139][198](N$)[179][177]43[167]B[178]B[171]2[172][197](A$)
  163. 4055 B[178]B[170][197](A$):I[178]I[170]1:[139]I[179]4[167]4060
  164. 4056 [141]15000
  165. 4057 [161]Z9$:[139]Z9$[178]""[167]4057
  166. 4058 [139][194](197)[178]4[167]PR[178]2:LI[178]0:[141]14000:SS[178][197]([200](D$,2)):[140]:[137]4011
  167. 4059 [137]4029
  168. 4060 [137]4040
  169. 4064 [153]:[139]N$[178]"XXXX"[175]LI[177]0[175]PR[177]0[167][141]13000:[142]
  170. 4065 [139]WHICH[178]2[167][153]" "B$;" $"P(27)
  171. 4067 [139]WHICH[178]8[176]WHICH[178]3[167][153]" "B$;" $"P([198](T$)[171]64)
  172. 4068 B[178][181](B[172]100[170].5)[173]100:[153]" TOTAL   = $";B
  173. 4070 [141]15000
  174. 4075 [161]Z9$:[139]Z9$[178]""[167]4075
  175. 4076 [139][194](197)[178]4[167]PR[178]2:LI[178]0:[141]14000:[140]:[141]4011
  176. 4080 [142]
  177. 5000 [143] SUBROUTINE TO PUT P ARRAY INTO DATA STATEMENTS
  178. 5010 RL[178]5020:[137]9600
  179. 5020 [141]9700:[141]69
  180. 5030 [153]"STOP TO SAVE PROGRAM AND DATA FOR NEXT       SESSION:POKE"
  181. 5040 [153]"      1WAIT INSERT DISKETTE,"
  182. 5045 [153]"      2WAIT PRESS <STOPRETURNWAITPOKE> WHEN READY."
  183. 5047 [161]Z9$:[139]Z9$[178]""[167]5047
  184. 5048 [153]"LOAD"
  185. 5150 [148]"@0:64 EXPENSES-86",8:[143] OR WHATEVER NAME YOU WANT
  186. 5160 [158]64738
  187. 6000 [143] SUBROUTINE TO PERFORM SEARCH
  188. 6005 [141]69:[153]" ENTER CHARACTERS TO BE SEARCHED":[133]" ";SE$:[141]69:PR[178]0
  189. 6040 X[178][195](SE$)
  190. 6045 B[178]0:[140]:QQ[178]0:
  191. 6050 [135]Z9$:[139]Z9$[179][177]"END"[167]6050
  192. 6060 [135]N$,D$,I$,A$,W$,Q$
  193. 6065 [139]N$[178]"XXXX"[167]6125
  194. 6070 [139][200](I$,X)[179][177]SE$[167]6060
  195. 6080 [139]PR[178]2[167]I[178]I[171]1:[159]4,4,0:[141]14005:[141]12000:[137]6121
  196. 6115 [153]" NUMBER: "N$:[153]" DATE:   "D$:[153]" PAYEE:  "I$:[153]" AMOUNT: "A$
  197. 6117 B[178]B[170][197](A$):QQ[178]QQ[170]1:[139]QQ[179][177]4[167]6121
  198. 6118 QQ[178]0:[141]15000
  199. 6119 [161]A$:[139]A$[178]""[167]6119
  200. 6120 [141]69
  201. 6121 [137]6060
  202. 6125 [139]N$[178]"XXXX"[175]LI[177]0[175]PR[178]2[167][141]13000:[160]4:PR[178]0:[142]
  203. 6150 [153]:[153]" TOTAL FOR ABOVE =        $"B
  204. 6200 [141]15000
  205. 6205 [161]Z9$:[139]Z9$[178]""[167]6205
  206. 6206 [139][194](197)[178]4[167]PR[178]2:LI[178]0:[141]14000:[137]6040
  207. 6210 [160]4:[142]
  208. 7000 [143] SUBROUTINE TO CALCULATE SALES TAX
  209. 7010 [141]69:[133]" ENTER SALES TAX RATE IN PERCENT";X:Z[178]X:X[178]X[173]100
  210. 7028 [153]"LOAD   CALCULATING......":[153]"           STOP PLEASE WAIT POKEWAIT"
  211. 7040 B[178]0:[140]
  212. 7050 [135]Z9$:[139]Z9$[179][177]"END"[167]7050
  213. 7060 [135]N$,D$,I$,A$,W$,Q$
  214. 7070 [139]Q$[179][177]"Y"[167]7090
  215. 7080 B[178]B[170][197](A$)
  216. 7090 [139]N$[179][177]"XXXX"[167]7060
  217. 7100 TAX[178](B[172]X):TAX[178][181](TAX[170].5):T$[178][196](TAX):
  218. 7101 T$[178]T$[170]".00":BB$[178][196](B)
  219. 7102 [139][195](T$)[179][195](BB$)[167]L[178][195](BB$)[171][195](T$):[129]R[178]1[164]L:T$[178]" "[170]T$:[130]
  220. 7105 Z$[178][196](Z):[139][195](Z$)[178]2[167]Z$[178]" "[170]Z$
  221. 7106 [139]PR[178]4[167][141]14000:[159]4,4,0:[152]4,"      TAXABLE PURCHASES          = $ "BB$
  222. 7107 [139]PR[178]4[167][152]4,"      SALES TAX PAID (AT"Z$"%)    = $ "T$ :[141]13105:[137]7130
  223. 7110 [141]69:[153]" TAXABLE PURCHASES     $"BB$
  224. 7120 [153]:[153]:[153]" SALES TAX PAID        $"T$
  225. 7130 [141]15000
  226. 7140 [161]Z9$:[139]Z9$[178]""[167]7140
  227. 7145 [139][194](197)[178]4[167]PR[178]4:[137]7040
  228. 7150 [142]
  229. 9000 [131] AUTO
  230. 9010 [131] BUSINESS
  231. 9020 [131] CASH
  232. 9030 [131] GENERAL
  233. 9040 [131] HOUSEHOLD
  234. 9050 [131] INSURANCE
  235. 9060 [131] LEISURE
  236. 9070 [131] MEDICAL
  237. 9080 [131] UTILITIES
  238. 9090 [131] END
  239. 9600 [143] SUBROUTINE TO PUT INFO INTO DATA STATEMENTS:
  240. 9605 LLL[178](LINE[171]10000)
  241. 9606 [153]"LOAD":[153]"PROCESSING DATA RECORD"LLL"NOW..."
  242. 9610 [153]"PRINT#":[129]I[178]0[164]5:[153]200[170]I;"DATA ";
  243. 9615 [129]J[178]0[164]4[171](I[178]5)
  244. 9617 A[178]P(I[172]5[170]J):A[178][181](A[172]1000[170].5)[173]1000:
  245. 9620 [153][202]([196](A),1);",";:[130]:[153][199](20):[130]:
  246. 9630 [153]OTHER$:[153]O2$:
  247. 9640 [153]"GOTO";RL:[153]""
  248. 9650 [143] DYNAMIC KEYBOARD
  249. 9660 [151]198,9
  250. 9670 [129]I[178]0[164]8:[151]631[170]I,13:[130]
  251. 9680 [128]
  252. 9700 S$[178]"                      "
  253. 9710 N$[178]S$:D$[178]S$:I$[178]S$:A$[178]S$:W$[178]S$:C$[178]",":Z$[178]S$:T$[178]S$:B$[178]"BALANCE =":Y$[178]S$
  254. 9720 SE$[178]S$:Q$[178]S$
  255. 9730 [134]P(30)
  256. 9740 [140]:[129]I[178]0[164]30:[135]P(I):[130]:[135]Y$
  257. 9750 [142]
  258. 12000 [139]LI[177]0[167]12051
  259. 12005 [152]4,[199](27)[199](68)[170][199](9)[170][199](15)[170][199](25)[170][199](36)[170][199](57);
  260. 12006 [152]4,[170][199](70)[170][199](0)
  261. 12010 [139]WHICH[178]2[167][152]4,[199](14)"          CHECK REGISTER":[152]4,[199](20)
  262. 12015 [139]WHICH[178]3[167][152]4,[199](14)"         CHARGE REGISTER":[152]4,[199](20)
  263. 12020 [139]WHICH[178]7[167][152]4,[199](14)"            SEARCH LIST":[152]4,[199](20)
  264. 12025 [139]WHICH[178]8[167][152]4,[199](14)"        "TT$" CATEGORY":[152]4,[199](20)
  265. 12030 [139]PR[178]3[167][152]4,[199](14)"     BALANCES IN ALL CATEGORIES":
  266. 12031 [139]PR[178]3[167][152]4,[199](20):[152]4
  267. 12035 [139]PR[178]3[167]12050
  268. 12040 W$[178][201](Y$,2):
  269. 12041 [139]WHICH[179][177]7[167][152]4,[199](9)"FROM: "M1"/ "W$[199](9)"    TO: "M2"/ "W$
  270. 12042 [139]WHICH[178]7[167][152]4,[199](9)"SEARCH FOR: "SE$
  271. 12043 [152]4
  272. 12045 [152]4,[199](9)"N0.  CHEQUE"[199](9)"  DATE"[199](9)"  PAYEE"[199](9)"  AMOUNT
  273. 12050 PRINT#4,CHR$(9)"-----------------------------------------------------------
  274. 12051 [139]PR[178]3[167][137]12110
  275. 12090 A1$[178]A$:Q[178][195](A1$):[129]L[178]Q[164]1[169][171]1
  276. 12091 [139][202](A1$,L,1)[179][177]"."[167][130]:A1$[178]A1$[170]".00":[137]12093
  277. 12092 [139]L[178]Q[171]1[167]A1$[178]A1$[170]"0"
  278. 12093 LE[178]8[171][195](A1$):[139][195](A$)[179]8[167][129]K[178]1[164]LE:A1$[178]" "[170]A1$:[130]K
  279. 12095 [139]PR[178]3[167]12110
  280. 12096 LL[178]LL[170]1:[139]LL[177]55[167]LL[178]0:[129]I[178]1[164]11:[152]4:[130]:[137]12000
  281. 12097 NN[178][197]([200](D$,2)):[139]NN[177]SS[167][152]4:SS[178]NN:LL[178]LL[170]1
  282. 12100 [139]N$[178]"+"[167]N$[178]"DEP"
  283. 12101 LI[178]LI[170]1:[152]4,[199](20)[199](9)LI[199](9)" "N$[199](9)D$[199](9)I$[199](9)"$"A1$:
  284. 12102 A[178][197](A$):[139]N$[178]"+"[167]D[178]A:A[178]A[171]A
  285. 12105 AT[178]AT[170]A:[160]4:[142]
  286. 12110 LI[178]LI[170]1:[152]4,[199](9)LI[199](9)Z$[199](9)[199](9)[199](9)"$"A$
  287. 12111 [160]4:[142]
  288. 13000 [139]WHICH[178]2[167]A2$[178][196](P(27))
  289. 13001 [139]WHICH[179][177]2[167]A2$[178][196](AT)
  290. 13003 [159]4,4,0:Q[178][195](A2$):[129]L[178]Q[164]1[169][171]1
  291. 13005 [139][202](A2$,L,1)[179][177]"."[167][130]:A2$[178]A2$[170]".00":[137]13015
  292. 13010 [139]L[178]Q[171]1[167]A2$[178]A2$[170]"0"
  293. 13015 LE[178]8[171][195](A2$):[139][195](A2$)[179]8[167][129]K[178]1[164]LE:A2$[178]" "[170]A2$:[130]K
  294. 13089 [139]WHICH[178]2[167][152]4
  295. 13090 [139]WHICH[178]2[167][152]4,[199](9)[199](9)[199](9)[199](9)"BALANCE ="[199](9)"$"A2$
  296. 13091 [139]WHICH[178]2[167][152]4
  297. 13092 [139]WHICH[178]2[167][152]4,[199](9)"  (1AD=AUTOMATIC BANK DEBIT: 1EW=";
  298. 13093 [139]WHICH[178]2[167][152]4,"ELECTRONIC WITHDRAWAL)"
  299. 13095 [139]PR[178]3[167][152]4:[152]4,[199](9)"     UNALLOCATED DEPOSITS  ="[199](9)"$"P$
  300. 13096 [139]PR[178]3[167][152]4,[199](9)"     ACCOUNT BALANCE       ="[199](9)"$"PB$:[137]13105
  301. 13100 [139]WHICH[179][177]2[167][152]4:[152]4,[199](9)[199](9)[199](9);
  302. 13101 [139]WHICH[179][177]2[167][152]4,[199](9)"TOTAL ="[199](9)"$"A2$
  303. 13105 [129]I[178]1[164]4:[152]4:[130]:[152]4,[199](12):[160]4:PR[178]0:LI[178]0:AT[178]0:[142]
  304. 14000 [153]"LOAD      PRINTING RECORD #":
  305. 14005 [153]""[163]25)LI[170]1:[142]
  306. 15000 [153]""
  307. 15001 [153]" <STOPRETURNWAITPOKE> TO CONTINUE OR <STOPF1WAITPOKE> TO PRINT";:[142]
  308.